4-5-2020

Reading & preparing data

covid <- read.csv("~/Downloads/csv.csv")
covid_NL <- covid %>%
        mutate(dateRep = as.Date(dateRep, format = "%d/%m/%Y")) %>%
        filter(countriesAndTerritories == "Netherlands") %>%
        group_by(dateRep) %>%
                summarise(countriesAndTerritories = last(countriesAndTerritories),
                          cases = sum(cases),
                          deaths = sum(deaths)) %>%
        filter(cases != 0)

Confirmed COVID-19 cases and deaths in the Netherlands